Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Dim ޽ As String
    Dim ޴» As String
    
    ޽ = "۾ ϱ?" & vbCr & vbCr
    ޽ = ޽ & " ο ϰ  6ð  ڵ ߼۵˴ϴ."
    
    If Time >= TimeSerial(18, 0, 0) Or MsgBox(޽, vbYesNo) = vbYes Then
        
        ޴» = "abc@test.com"
        
        With ThisWorkbook
            .Save
            .SendMail Recipients:=޴», Subject:=" ߼մϴ."
        End With
        
    End If

End Sub